home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
fglqbx10.zip
/
CC-01.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
446b
|
32 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DECLARE SUB Int1C(Flag)
CONST Esc = 27
DIM KeyCode AS STRING*1
DIM AuxCode AS STRING*1
DIM SHARED Status1, Status2
Int1C(1)
Status1 = 0
Status2 = 0
FGgetkey KeyCode, AuxCode
WHILE KeyCode <> CHR$(Esc)
PRINT
PRINT "Joystick 1 status:"; Status1
PRINT "Joystick 2 status:"; Status2
Status1 = 0
Status2 = 0
FGgetkey KeyCode, AuxCode
WEND
Int1C(0)
END